home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / generics.h < prev    next >
C/C++ Source or Header  |  1993-02-02  |  2KB  |  54 lines
  1. /*
  2.  
  3.  * Generic operators...
  4.  
  5.  */
  6.  
  7. extern LispObject make_generic(char *,int);
  8. extern LispObject make_method(LispObject (*)(),LispObject,int);
  9. extern LispObject make_default_generic(char *,LispObject (*)(),int);
  10. extern LispObject Fn_next_method_p(LispObject,LispObject);
  11. extern LispObject Fn_call_next_method(Env,LispObject);
  12. extern LispObject Fn_current_method(LispObject);
  13.  
  14. extern EUDECL( call_generic);
  15. extern void my_add_method(LispObject*,LispObject,LispObject);
  16. extern LispObject flat_list_copy(LispObject*);
  17.  
  18. /*
  19.  
  20.  * Call utitlities.
  21.  
  22.  */
  23.  
  24. extern LispObject generic_apply(LispObject*, LispObject,LispObject);
  25. extern LispObject generic_apply_1(LispObject*, LispObject,LispObject);
  26. extern LispObject generic_apply_2(LispObject*, LispObject,
  27.                                LispObject, LispObject);
  28. extern LispObject generic_apply_3(LispObject*, LispObject,
  29.                   LispObject,LispObject,LispObject);
  30. extern LispObject generic_apply_4(LispObject*,  LispObject,
  31.               LispObject, LispObject, LispObject, LispObject);
  32.  
  33. #define is_generic(x)     (EUCALL_2(Fn_subclassp,classof(x),Generic) != nil)
  34.  
  35. #define generic_name(x)        slotref(x,0)
  36. #define generic_home(x)     slotref(x,1)
  37. #define generic_argtype(x)    slotref(x,2)
  38. #define generic_method_class(x)    slotref(x,3)
  39. #define generic_discriminator(x)    slotref(x,4)
  40. #define generic_cache_table(x)    slotref(x,5)
  41. #define generic_method_table(x) slotref(x,6)
  42.  
  43. #define N_SLOTS_IN_GENERIC_CLASS 7
  44.  
  45. #define method_qualifier(x)     slotref(x,0)
  46. #define method_signature(x)    slotref(x,1)
  47. #define method_host(x)        slotref(x,2)
  48. #define method_function(x)     slotref(x,3)
  49. #define method_fixed(x)     slotref(x,4)
  50.  
  51. #define is_method(x)     (EUCALL_2(Fn_subclassp,classof(x),Method) != nil)
  52.  
  53. #define N_SLOTS_IN_METHOD_CLASS 5
  54.